##LS
LS<-function (space=1,pattern = "")
{
if (length(ls(space,pat=pattern)) <1){stop("No objects are in memory")}
obs <- ls(space, pat = pattern)
cat(
formatC("DIM/LEN"),
formatC("NAME", width=max(nchar(obs)+5)),
formatC("CLASS",width=16),
"\n")
if (length(ls(space,pat="tmp")) >0){
for (i in 2:length(obs)) {
widim <- 0
ww <- eval(parse(t = paste("length(dimx(", obs[i], "))")))
for (k in 1:ww){
widim <- eval(parse(t = paste("length(dimx(",obs[i],"))+widim-2+nchar(dimx(", obs[i], ")[k])")))}
cat(
eval(parse(t = paste("dimx(", obs[i], ")"))),
formatC(obs[i], width=max(nchar(obs))-widim+10),
formatC(eval(parse(t = paste("class(", obs[i], ")"))),1, 16),
"\n") }}
else{
for (i in 1:length(obs)) {
widim <- 0
ww <- eval(parse(t = paste("length(dimx(", obs[i], "))")))
for (k in 1:ww){
widim <- eval(parse(t = paste("length(dimx(",obs[i],"))+widim-2+nchar(dimx(", obs[i], ")[k])")))}
cat(
eval(parse(t = paste("dimx(", obs[i], ")"))),
formatC(obs[i], width=max(nchar(obs))-widim+10),
formatC(eval(parse(t = paste("class(", obs[i], ")"))),1, 16),
"\n") }}}
##INFO
info <- function(x){
cat("MODE: ")
cat(mode(x))
cat("\n")
cat("CLASS: ")
cat(class(x))
cat("\n")
cat("DIM or LENGTH: ")
cat(dimx(x))
cat("\n")
cat("NAMES: ")
if (length(names(x))>6) cat(names(x)[1:6]," ...")
else cat(names(x))
cat("\n")}